       INITIALIZE-NEW-STRING.

           MOVE SPACE TO STRING-TO-BUILD.
           MOVE 0 TO STB-SO-FAR.

       BUILD-A-STRING.

           PERFORM STRIP-A-STRING.
           PERFORM STRIP-LENGTH TIMES
              ADD 1 TO STB-SO-FAR
              MOVE STS (STRIP-BEG) TO STB (STB-SO-FAR)
              ADD 1 TO STRIP-BEG
           END-PERFORM.
      *ADD A SPACE AS A SEPARATOR
              ADD 1 TO STB-SO-FAR
              MOVE " " TO STB (STB-SO-FAR).

       STRIP-A-STRING.

           PERFORM VARYING STRIP-END
              FROM LENGTH OF STRING-TO-STRIP    BY -1
              UNTIL (STRIP-END = 1
                 OR (STS (STRIP-END) NOT = SPACE AND LOW-VALUE))
              CONTINUE
           END-PERFORM.

           PERFORM VARYING STRIP-BEG
              FROM 1 BY 1
              UNTIL (STRIP-BEG >= STRIP-END
                 OR (STS (STRIP-BEG) NOT = SPACE AND LOW-VALUE))
              CONTINUE
           END-PERFORM.
           COMPUTE STRIP-LENGTH = STRIP-END - STRIP-BEG + 1.


